home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / oddech / karel / karol.exe / {app} / Priklady / 06bazen2_funkcie.kpp < prev    next >
Text File  |  2001-05-05  |  2KB  |  90 lines
  1. {
  2. V tomto priklade su pouzivane
  3. vlastne prikazy a vnorene prikazy
  4.   (prikaz preplavaj_bazen ma este
  5.   prikaz celomvzad)
  6. }
  7.  
  8. // prikaz postav bazen
  9. prikaz postav_bazen;
  10.    {*********** postavim bazen ***********}
  11.    opakuj 12 krat
  12.      kym nie je stena rob
  13.        poloz
  14.        krok
  15.      *kym
  16.      vlavo
  17.    *opakuj
  18. *prikaz
  19.  
  20. // prikaz zburaj bazen
  21. prikaz zburaj_bazen;
  22.    {zburam bazen}
  23.    opakuj 12 krat
  24.      kym nie je stena rob
  25.        zober;
  26.        krok;
  27.      *kym
  28.      vpravo;
  29.    *opakuj
  30. *prikaz
  31.  
  32. // prikaz preplavaj bazen
  33. prikaz preplavaj_bazen;
  34.  
  35.     // lokalne prikazy
  36.     prikaz celomvzad;
  37.        vlavo;
  38.        vlavo;
  39.     *prikaz
  40.   
  41.   // telo prikazu
  42.    opakuj 3 krat poloz *opakuj
  43.    krok
  44.    kym nie je tehla rob
  45.      opakuj 3 krat poloz *opakuj
  46.      krok
  47.      celomvzad
  48.      opakuj 3 krat zober *opakuj
  49.      celomvzad
  50.    *kym
  51.    krok
  52.    vlavo vlavo
  53.    opakuj 3 krat zober *opakuj
  54.    vlavo vlavo
  55. *prikaz
  56.  
  57. // definicia hlavneho prikazu
  58. prikaz hlavny_prikaz;
  59.  
  60.    postav_bazen;
  61.  
  62.    {prejdem do stredu}
  63.     vlavo opakuj 2 krat krok *opakuj vpravo
  64.  
  65.    {preplavaj}
  66.    preplavaj_bazen;
  67.  
  68.    {pridem do rohu}
  69.    vpravo
  70.    opakuj 2 krat krok *opakuj
  71.    vpravo
  72.  
  73.    zburaj_bazen;
  74.  
  75.    {vratim sa na povodnu poziciu}
  76.    kym je volno rob krok; *kym
  77.    {natocenie v povodnom smere}
  78.    vlavo; vlavo;
  79. *prikaz
  80.  
  81. { ********************************************* }
  82. { *************** ZACIATOK PROGRAMU *********** }
  83. { ********************************************* }
  84. opakuj 4 krat
  85.  
  86.    hlavny_prikaz;
  87.    
  88. *opakuj
  89. { *********** KONIEC PROGRAMU *********** }
  90.